VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form frmINV500 
   BackColor       =   &H00800000&
   Caption         =   " "
   ClientHeight    =   7800
   ClientLeft      =   696
   ClientTop       =   1128
   ClientWidth     =   10944
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   7800
   ScaleWidth      =   10944
   Begin MSDataListLib.DataCombo cboTHTID 
      Height          =   288
      Left            =   7944
      TabIndex        =   43
      Top             =   1344
      Visible         =   0   'False
      Width           =   2892
      _ExtentX        =   5101
      _ExtentY        =   508
      _Version        =   393216
      Text            =   ""
   End
   Begin MSDataListLib.DataCombo cboTHWHC 
      Height          =   288
      Left            =   1944
      TabIndex        =   42
      Top             =   1284
      Visible         =   0   'False
      Width           =   2892
      _ExtentX        =   5101
      _ExtentY        =   508
      _Version        =   393216
      Text            =   ""
   End
   Begin VB.CommandButton cmdReview 
      Caption         =   "&Review Transation"
      Height          =   432
      Left            =   432
      TabIndex        =   41
      Top             =   7248
      Width           =   1092
   End
   Begin VB.TextBox txtTCDSC 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.8
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   8328
      Locked          =   -1  'True
      TabIndex        =   29
      Top             =   1344
      Width           =   2340
   End
   Begin VB.TextBox txtTHTID 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.8
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   7800
      TabIndex        =   28
      Top             =   1344
      Width           =   456
   End
   Begin VB.TextBox txtWMDSC 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.8
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   2472
      Locked          =   -1  'True
      TabIndex        =   27
      Top             =   1284
      Width           =   2340
   End
   Begin VB.TextBox txtTHWHC 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.8
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   1944
      TabIndex        =   26
      Top             =   1284
      Width           =   456
   End
   Begin VB.TextBox txtTHDTE 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.8
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   7776
      TabIndex        =   25
      Top             =   996
      Width           =   1284
   End
   Begin VB.TextBox txtTHDoc 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.8
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   1956
      TabIndex        =   24
      Top             =   948
      Width           =   1284
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "&Exit"
      Height          =   456
      Left            =   6108
      TabIndex        =   23
      Top             =   7248
      Width           =   1044
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "&Cancel"
      Height          =   456
      Left            =   4992
      TabIndex        =   22
      Top             =   7248
      Width           =   1080
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "&Save"
      Height          =   456
      Left            =   3888
      TabIndex        =   21
      Top             =   7248
      Width           =   1080
   End
   Begin VB.CommandButton cmdAddNew 
      Caption         =   "New &Transaction"
      Height          =   456
      Left            =   1572
      TabIndex        =   20
      Top             =   7248
      Width           =   1152
   End
   Begin VB.CommandButton cmdNewItem 
      Caption         =   "New &Item"
      Height          =   456
      Left            =   2748
      TabIndex        =   19
      Top             =   7248
      Width           =   1128
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   348
      Left            =   8568
      Top             =   84
      Visible         =   0   'False
      Width           =   2196
      _ExtentX        =   3874
      _ExtentY        =   614
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "1.ITH"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin VB.Frame FrameTransactionLines 
      BackColor       =   &H00E0E0E0&
      BorderStyle     =   0  'None
      Height          =   2724
      Left            =   408
      TabIndex        =   17
      Top             =   4380
      Width           =   10248
      Begin MSDataGridLib.DataGrid grdITH 
         Height          =   2736
         Left            =   0
         TabIndex        =   18
         Top             =   -12
         Width           =   10236
         _ExtentX        =   18055
         _ExtentY        =   4826
         _Version        =   393216
         AllowUpdate     =   -1  'True
         BackColor       =   -2147483624
         ForeColor       =   8388736
         HeadLines       =   2
         RowHeight       =   21
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "VNI-Avo"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   12
         BeginProperty Column00 
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "THITN"
            Caption         =   "Item"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "IMITD"
            Caption         =   "Description"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "THTSQ"
            Caption         =   "Seq. No"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "THLTN"
            Caption         =   "Lot.No"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "THCVN"
            Caption         =   "Cust / Vendor"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column06 
            DataField       =   "Name"
            Caption         =   "Cust/Vendor Name"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column07 
            DataField       =   "THREF"
            Caption         =   "Ref.No"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column08 
            DataField       =   "THQTY"
            Caption         =   "Qty"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column09 
            DataField       =   "THWGT"
            Caption         =   "WGT"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column10 
            DataField       =   "THCST"
            Caption         =   "Value"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column11 
            DataField       =   "THREM"
            Caption         =   "Remarks"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            ScrollGroup     =   3
            BeginProperty Column00 
               ColumnWidth     =   11.906
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   768.189
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1716.095
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   924.095
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   1019.906
            EndProperty
            BeginProperty Column05 
               ColumnWidth     =   743.811
            EndProperty
            BeginProperty Column06 
               ColumnWidth     =   1667.906
            EndProperty
            BeginProperty Column07 
               ColumnWidth     =   996.095
            EndProperty
            BeginProperty Column08 
               Alignment       =   1
               ColumnWidth     =   959.811
            EndProperty
            BeginProperty Column09 
               Alignment       =   1
               ColumnWidth     =   815.811
            EndProperty
            BeginProperty Column10 
               Alignment       =   1
               ColumnWidth     =   864
            EndProperty
            BeginProperty Column11 
               ColumnWidth     =   1728
            EndProperty
         EndProperty
      End
   End
   Begin VB.Frame FrameItemTransactionDetail 
      BackColor       =   &H00E0E0E0&
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Height          =   2136
      Left            =   348
      TabIndex        =   6
      Top             =   1788
      Width           =   10344
      Begin MSDataListLib.DataCombo cboTHCVN 
         Height          =   288
         Left            =   1500
         TabIndex        =   45
         Top             =   408
         Visible         =   0   'False
         Width           =   3336
         _ExtentX        =   5884
         _ExtentY        =   508
         _Version        =   393216
         Text            =   ""
      End
      Begin MSDataListLib.DataCombo cboTHITN 
         Height          =   288
         Left            =   1500
         TabIndex        =   44
         Top             =   36
         Visible         =   0   'False
         Width           =   3312
         _ExtentX        =   5842
         _ExtentY        =   508
         _Version        =   393216
         Text            =   ""
      End
      Begin VB.TextBox txtTHCST 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   9228
         TabIndex        =   40
         Top             =   828
         Width           =   900
      End
      Begin VB.TextBox txtTHREM 
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   912
         Left            =   1512
         MultiLine       =   -1  'True
         TabIndex        =   39
         Top             =   1176
         Width           =   8616
      End
      Begin VB.TextBox txtTHWGT 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   6384
         TabIndex        =   38
         Top             =   816
         Width           =   876
      End
      Begin VB.TextBox txtTHQTY 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   1500
         TabIndex        =   37
         Top             =   804
         Width           =   900
      End
      Begin VB.TextBox txtTHREF 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   6372
         TabIndex        =   36
         Top             =   432
         Width           =   900
      End
      Begin VB.TextBox txtName 
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   2460
         Locked          =   -1  'True
         TabIndex        =   35
         Top             =   408
         Width           =   2340
      End
      Begin VB.TextBox txtTHCVN 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   1500
         TabIndex        =   34
         Top             =   408
         Width           =   900
      End
      Begin VB.TextBox txtTHLTN 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   9180
         TabIndex        =   33
         Top             =   60
         Width           =   900
      End
      Begin VB.TextBox txtTHTSQ 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   6384
         TabIndex        =   32
         Top             =   48
         Width           =   876
      End
      Begin VB.TextBox txtIMITD 
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   2460
         Locked          =   -1  'True
         TabIndex        =   31
         Top             =   36
         Width           =   2340
      End
      Begin VB.TextBox txtTHITN 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   1500
         TabIndex        =   30
         Top             =   36
         Width           =   900
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Remark"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   216
         Index           =   14
         Left            =   192
         TabIndex        =   15
         Top             =   1224
         Width           =   840
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Value"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   216
         Index           =   13
         Left            =   8376
         TabIndex        =   14
         Top             =   864
         Width           =   588
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Wgt"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   216
         Index           =   12
         Left            =   5520
         TabIndex        =   13
         Top             =   864
         Width           =   384
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Qty"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   216
         Index           =   11
         Left            =   204
         TabIndex        =   12
         Top             =   828
         Width           =   384
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "PO"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   216
         Index           =   10
         Left            =   5508
         TabIndex        =   11
         Top             =   468
         Width           =   384
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Cust/Vendor"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   216
         Index           =   9
         Left            =   204
         TabIndex        =   10
         Top             =   432
         Width           =   1224
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Lot No"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   252
         Index           =   8
         Left            =   8376
         TabIndex        =   9
         Top             =   96
         Width           =   828
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "SEQ No"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   252
         Index           =   7
         Left            =   5520
         TabIndex        =   8
         Top             =   96
         Width           =   768
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Item No"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   252
         Index           =   6
         Left            =   204
         TabIndex        =   7
         Top             =   60
         Width           =   756
      End
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Transaction lines"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00E0E0E0&
      Height          =   252
      Index           =   15
      Left            =   60
      TabIndex        =   16
      Top             =   4104
      Width           =   1728
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Transaction code"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00E0E0E0&
      Height          =   252
      Index           =   5
      Left            =   6072
      TabIndex        =   5
      Top             =   1380
      Width           =   1764
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Ware House code"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00E0E0E0&
      Height          =   252
      Index           =   4
      Left            =   300
      TabIndex        =   4
      Top             =   1356
      Width           =   1560
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Date"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00E0E0E0&
      Height          =   252
      Index           =   3
      Left            =   6072
      TabIndex        =   3
      Top             =   1068
      Width           =   528
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Document No"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00E0E0E0&
      Height          =   252
      Index           =   2
      Left            =   312
      TabIndex        =   2
      Top             =   1032
      Width           =   1392
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Inventory Transaction Entry"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   16.2
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00E0E0E0&
      Height          =   540
      Index           =   1
      Left            =   2064
      TabIndex        =   1
      Top             =   216
      Width           =   5136
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "INV500"
      BeginProperty Font 
         Name            =   "VNI-Present"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00E0E0E0&
      Height          =   516
      Index           =   0
      Left            =   84
      TabIndex        =   0
      Top             =   -24
      Width           =   1752
   End
End
Attribute VB_Name = "frmINV500"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim NewTrans As Byte

Private Sub cmdAddNew_Click()
NewTrans = True
WriteToScreen
End Sub

Private Sub cmdExit_Click()
Unload frmINV500
End Sub
Sub WriteToScreen()
If NewTrans Then
    txtTHDoc = ""
    txtTHWHC = ""
    txtWMDSC = ""
    txtTHDTE = Date
    txtTHTID = ""
    txtTCDSC = ""
End If
If ISADDING Then
   txtTHITN = ""
   txtIMITD = ""
   txtTHCVN = ""
   txtName = ""
   txtTHTSQ = 0
   txtTHLTN = ""
   txtTHREF = ""
   txtTHQTY = 0
   txtTHWGT = 0
   txtTHCST = 0
   txtTHREM = ""
Else
    Dim recITH As Recordset
    Set recITH = DBconn.Execute("select * from ITH where THITN='" & grdITH.Columns(1) & "' and THTSQ=" & grdITH.Columns(3))
    With recITH
        txtTHITN = !THITN
        txtIMITD = !IMITD
        txtTHCVN = !THCVN
        If UCase(Effect(txtTHTID)) = "RECEIVE" Then
            txtName = Name(!THCVN, "Vendor")
        Else
            txtName = Name(!THCVN, "Customer")
        End If
        txtTHTSQ = !THTSQ
        txtTHLTN = !THLTN
        txtTHREF = !THREF
        txtTHQTY = !THQTY
        txtTHWGT = !THWGT
        txtTHCST = !THCST
        txtTHREM = ""
    End With
End If

End Sub

Private Sub Form_Load()
ISADDING = False
ISEDITING = False
End Sub
